      IMPLICIT REAL*8 (A-H, L-Z)
      real m1,m2,t2,rate,rate1,lt2,rate0(5000)
      integer I
      open(105,file='hmxb.dat',status='unknown')
      open(106,file='hmxbMW.dat',status='unknown')
      rate0(0)=0
      rate1=0
      do 10 I = 1, 16742
      read(105,*)m1,m2,tb0,mx,mx2,tbx,eccx,t1,t2
c      rate=7.96e-6*m2*m1**-2.7 
       if(mx.le.20.0.and.tbx.le.1000.0)then
        tbx = log10(tbx)
       write(106,12)m1,m2,tb0,mx,mx2,tbx,eccx,t1,t2

10       endif


12    FORMAT(2f10.2,3f10.2,f10.2,f10.2,6f10.2)
      end
